﻿Imports Exp.DATA_Service
Imports Exp.Model

Public Class BookingList
    Inherits System.Web.UI.Page

    Const MENUNAME As String = "BOOKLIST"
    Private _User As REM_User
    Private Property user() As REM_User
        Get
            If Session("USER") Is Nothing Then Response.Redirect("~/login.aspx") Else _User = CType(Session("USER"), REM_User)
            Return _User
        End Get
        Set(value As REM_User)
            _User = value
        End Set
    End Property

#Region "Event"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            If Session("USER") Is Nothing Then
                Response.Redirect("~/login.aspx")
            Else
                User = CType(Session("USER"), REM_User)

                Dim objUSV As New Exp.DATA_Service.User_Service
                If Not objUSV.isHasRight(User.User_ID, MENUNAME) Then
                    Session("USER") = Nothing
                    Session.Clear()
                    Response.Redirect("~/login.aspx")
                End If
            End If
        End If


    End Sub
#End Region

#Region "Function"


  
#End Region

End Class